SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
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SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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RR RR EE BB BB LL DD DD LL 00 oo cc 
RR RR EE BB BB LL DD DD LL 00 oo CC 
RRRRRRRR EEEEEEEE BB8BBBBB LL DD DD LL 00 oo CC 
RRRRRRRR EEEEEEEE BBBBBBBB LL DD DD LL 00 oo cc 
RR RR EE BB BB LL DO DD LL 00 oo CC 
RR RR EE BB BB LL DD DD LL 00 oo cc 
RR RR EE BB BB LL DD DD LL 00 oo CC 
RR RR EE 88 BB LL DD DD LL 00 oo cc 
RR RR EEEEEEEEEE 88888888 LLLLLLLLLL DDDDDDDD LLLELLLLLL 000000 cccccccc 
RR RR EEEEEEEEEE BB8BBBBBB LLLLLLLLLL DDDDDDDD LLLLLLLLLL 000000 ccecccccc 
LL IIIT] SSSSSSSS 
LL IIIT! SSSSSSSS 
LL I] SS 
LL I] SS 
LL II SS 
LL I] SS 
LL I] SSSSSS 
LL Il SSSSSS 
LL I] SS 
LL I] SS 
LL II SS 
LL II SS 
LLELLLLLLLL IIIT] SSSSSSSS 
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= Rebuild Lock Database on Failover 16-SEP-1984 00:38:42 VAX/VMS Macro v04-00 


DECLARATIONS 

LCKSINIT REBUILD = Initialize lock database for rebuild 
LCKSREBUILD_LKBS - Rebuite KBs 

LCKSREBLD_LOCK = Rebuild a Lock guring failover 
LCKSCHECK_DIRENTRY = Check if this is a directory entry 
LCKSMARK_FOR_RESEND = Mark LKBs on RSB for resending 
LCKSREBUTLD_RSBS 

PROCESS RSB = Process a single RSB oT failover 
LCKSRESOME_UNPROT = Resume processes wai ing for locks 
LCKSSET_STATEn = Set rebuild state to specified value 
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i reetty ey 90: 78:38 SYSLOA.SRCJREBLDLOCK.MAR; 1 . (1) 


-TITLE REBLDLOCK = Rebuild Lock Database on Failover 
“IDENT "yBsebOO™ ; 


RARER HEALER AAA A AAA AAAAAAAAAAAAARAARAAAARAARAAAAAARAAKRERARATAAATATEe 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY ACCORDANCE ~h THE TERMS OF SUCH iat eo hr THE 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
a okat tine NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS oe FOR THE USE OR RELIABILITY OF ITS 


I 
SOFTWARE ON EQUIPMENT WHICH 


: R 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
: NOT SUPPLIED BY DIGITAL. 
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SRR AARAAAA AAA RHR AAA AAA AARAAAAAAE RAAT AARAERAAAAARAARAAATE Te 


FACILITY: Executive, system services and fork level code 


ABSTRACT: 
This module contains routines used to rebuild the lock database 
when a system is removed from the cluster. 


ENVIRONMENT: Kernel mode, fork level, loadable code 


AUTHOR: Steve Beckhardt, CREATION DATE: 25-May-1983 
MODIFIED BY: 


v03-015 S$RB0135 Steve Beckhardt 6-Jul-1984 
Zero deadlock bitmap expiration timestamps on every 
state change. 


v03-014 SRBO134 Steve Beckhardt 22-Jun-1984 
Fixed bugs in lock rebutiéing. 1) Put all locks 
in response states (RSP...) into RETRY state and 
2) store nowhy computed group grant mode in all resources, 
regardless of where the resource is mastered. 


v03-013 SRB0132 Steve Beckhardt 25-May-1984 
Added support for LCKSM_NODLCKWT flag. 
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“SEP-1 SYSLOA.SRCJREBLOLOCK.MAR; 1 
28 ; v03-012 $RB0121 Steve Beckhardt 29-Apr-1984 
20 : Added more integrity checks. 
61; v03-011 SRB0117 Steve Beckhardt 10-Mar-1984 
86 3 Added code to remove RSBs from time out queue 
o7 : during failover. 
0 65 ; v03-010 $RB0115 Steve Beckhardt 24-Feb-1984 
09 66 : Added support for distr buted deadlock detection. 
68 ; V03-008 $RB0110 e Beckhardt 27-Jan-1984 
8 4 3 Added MEMSEQ checking f for REBUILD messa +i catted 
0; PMS counters. RSPDOLOCL bug in D 
B08 4 ; Added routines to set rebuild state. Pined. Sip VALID bug. 
444 m : v03-007 SRB0108 Steve Beckhardt 11-Jan-1984 
000 74 ; Redesigned as ag) bi lock Cateboge to remaster all trees 
0000 75; and to support distributed root directory. Added support 
4 6 3 for request sequence numbering on failover and for 
8000 oe ; maintaining the EPID in locks. 
0000 79; V03-006 $RB0106 Steve Beckhardt 6-Dec-1983 
0000 80 ; Changed LKBSL_REFCNT, RSBSL_REFCNT, and RSBSL _BLKASTCNT 
4 4 : to be word fields. 
0000 HE : V03-005 SRBO104 Steve Beckhardt 17-0c t-1983 
0000 84 ; Fixed bug where second quadword of value block was lost 
4364 $2 3 when rebuilding locks. 
0000 87 : V03-004 $RB0100 teve Beckhardt 29-Jul-1983 
+464 He 3 Changed intddean to failover routines 
0000 90; V03-003 SRB0094 Steve Beckhardt 23-Jun-1983 
4 4. : Continued adding support for n-node failover. 
0000 36 : v03-002 SrRB0093 Steve Beckhardt 3-Jun-1983 
944 ae $ Removed spurious test and resultant BUG_CHECK. 


<z 


sean 


co} 
wm 
re 
ro 
zc 
>—. 
—-— 
oO 
2 
“oOo 


ck Database on Failover SEP-1984 00:38: AX/VMS Macro v04-00 Pa 
g Hiatt : $8 SYSLOA.SRCJREBLDOLOCK.MAR; 1 - 3) 


«SBTTL DECLARATIONS 
INCLUDE FILES: 


MACROS: 


F ; ACB offse 

Conditionat S scarce: switches 
CDRP offse 

Cluster eessege offsets 
CLUB offsets 

$B ofiects: 

ta structure names 

rk block offsets 

PL definitions 

LCK definitions 

LKB orreets 

PCB offsets 

4b ALE definitions 
PSL det nitions 

RSB o Sheets 

Resource numbers 
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EQUATED SYMBOLS: 


OWN STORAGE: 


OOoooooceo 


S 
So 
OOQOOoOOooooooo 


SOOSOCOOOSOM wes & 


-PSECT $$$040,LONG 


LALIGN LONG 
CURR_LOCKID: 3 Current tockte 
satateitctbs RETURN. rion: . Mets a from fail ti 
P n r 
seenees Lexseu.r3ceeip::” a ;: xa nee p a a wy: 
° oT system issuin mestamps 
00000000 "CONG 0 i: dhe 7 
0000 .PSECT $$8020 
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NOTE: The following assumption is in effect for this entire module. 
‘ eeeeeeeeececereercereeeccecererqceceercencecceecencececeneesccceeeneeces 
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MOOD NAME WIN OOD NAME WIN 9 ODNAUE WIN @§ OOO NAULS WR OWONAULS WN OWOOon 
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ASSUME IPLS$_SYNCH EQ IPLS$_SCS 
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~SBTTL LCKSINIT_REBUILD = Initialize lock database for rebuild 


p++ 
; FUNCTIONAL DESCRIPTION: 


This routine initializes the lock database for the rebuild 
operation. It does the following: 


o Removes all LKBs and RSBs from time out queue and 
deallocates RSBs 
Clears all LKBSM_RESEND bits 


d 
153 
154 
} 5 
HE 
135 3 
160 ; 
161 ; 
16 3 
163 ; rs) 
88 164 ; Oo Removes all master copy locks 
165 ; o Changes all locally issued locks in transient SCS states 
00 166 ; to RETRY state 
0000 167 ; o Clears all RSBSM_DIRENTRY flags 
000 168 ; o Sets all RSBSL_CSID fields to an illegal CSID 
B80 198 : o Removes all directory entries 
00 170; o Selects a node to issue timestamps (for deadlock detection) 
444 Vy) 3 and resets expiration timestamps 
0000 138 3 The result is a lock database with strictly local information; 
0000 \re r no master copies and no directory entries. 
tit 178 3; CALLING SEQUENCE: 
0900 178 ; JSB LCKSINIT_REBUILD (called from failover table dispatcher) 
8000 12 5 IPL must be at IPL$_SYNCH 
0000 184 3; INPUT ARGUMENTS: 
388 136 3 
36 183 ; None 
00 184 ; 
000 185 ; OUTPUT ARGUMENTS: 
0 186 ; 
0 + 3 None 
00 188 ; 
44 133 3 SIDE EFFECTS: 
00 190 ; 
09 13¢ 3 RO - RS not preserved 
193 ° 
bo 194 LCKSINIT_REBUILD:: 
OFEO 8F 8B ? 132 PUSHR #*M<R5,R6,R7,R8,R9,R10,R11> 
6 4 139 : Remove all locks (and RSBs) from the timeout queue. RSBs represent 
; 4 138 : calls to LCKSSND_RMVDIR that failed due to insufficient pool. 
; ha ; These should be deallocated. 
55 09000000" 6c DE 4 1 MOVAL G LEt OGL. IMOUTE.RS ; Get address of queue header 
56 008 OF § 5$: REMQUE a(R5),R ; Remove LKB (or RSB) 
1D fF BVS $ ; Queue is onety 
0040 8F AA 1 4 BICW #LKBSM_TIMOUTQ,- 3; Clear status bit 
A A6 13 5 LKBSW_STATUS (RO) 
AA6 91 1 $ CMPB LKBS$B-TYPE(R6),- ; Is it a RSB? 
36 1A #DYNST_ 
gE 1 1B 3 BNEQ 5$ 3 No 
50 a 1D MOVL R6,RO ; Yes deallocate it 


Delete lock if it is a master copy and has a zero 
reference count. Also delete parents, if possible. 
If the lock belongs to this system, then c¢ ange all transient 


sss 
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Wires tte LCKSINI REBUILD = Initialize lock datab mets 7 00: 78:58 SYSLOA.SRCJREBLDLOCK.MAR; 1 — 3) 
00000000'GF 16 JSB *EXESDEANONPAGED 
3 a BRB if 
; Loop through the lock id. table to remove all master copy locks. 
3 if a lock we wish to delete has a non-zero reference count then 
; it is deferred until later. Conversly, whenever we delete a lock 
; we also try to delete its parent lock. 
5B 4 8$: CLRL R11 3; Initialize lock id. 
5A 00000000'GF 00 MOVL G*LCKS$GL_IDTBL,R10 ; Get address of lock id. table 
10$: 3; Get next lock 
5B D6 INCL R11 3; Advance to next lock id. 
00000000 ' GF ? Di 00 CMPL R11,G*LCKSGL_MAXID ; Reached the end? 
F 1A 00 BGTRU 40$ 3; Yes 
56 6A4B 0° 0 MOVL (R10)CR113,R6 ; Get pointer to LKB 
YF BGEQ 10$ ; Unused entry 
0 


8p SCS states to RETRY state. 
0400 8F AA 00 BICW #LKBSM_RESEND,- ; Clear RESEND bit 
2A Ab 00 LKBSW_STATUS (R6) 
04 €0 Be BBS #LKBST_MSTCPY,- ; Branch if master copy 
17 2A A6 0 LKBSW_STATUS(R6) ,20$ 
00 DISPATCH LKBS$B_STATE(R6), TYPE=B, PREF IX=LKBSK_,- 
00 <RSPNOTQED,15$>,- ; Change temporary SCS wait states 
0 <RSPQUEUED,15$>,- 3 into RETRY state 
0 <RSPGRANTD,15$>,- 
<RSPOOLOCL .155>,° 
D4 00 4 BRB 10$ ; ALL other states are okay as is 
FE 8F 0 15$: MOVB #LKBSK_RETRY,- 
36 Ab 0 LKBSB_STATE(R6) 
: BRB 10$ 


208: TSTW LKBSW_REFCNT(R6) ; Are there any sublocks? 
BNEQ $ : Yes, defer to later 
REMQUE LKBSL_SQFL(R6) RO ; Remove LKB from RSB state queue 
MOVL LKBSL~ PARENT (R64) ,R5 :; Save address of parent 
BSBW LCKSDEALLOC_LKB ; Deallocate LKB 
MOVL R5,R6 3; Now ery parent 
BNEG e0$ : There is 
BRB 0$ ; 


3; Loop toroug® all RSBs in the resource hash table, for each RSB, 
3 9yeer its DIRENTRY bit, set its CSID to an invalid CSID, delete it 


one 
; Advance to next lock id. 


all the queues are empty and its reference count is zero. 
; Also delete parents, if possible. 


40$: ASHL G*LCKSGL_HTBLCNT.41,R10 ; Get size of hash table 


7B 
5A 01 00000000'GF 78 78 4 
MOVL  G*LCKSGL“HASHTBL.R14 : Get address of hash table 


5B  00000000'GF 00 $ 
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MOVAL 


MOVL (RI) RY 
90 


BEQL $ ; Reached end of chain 
MOVL ; Move RSB address to R8 
BICW #RSBSM_DIRENTRY,- ; Clear directory entry bit 

SBSW STATUS (RBS 
MNEGL #1,RSBSL_CSID(R8) 3; Store invalid CSID 
MOVAL RSBSL_GROFL(R8) ,RO ; Get address of granted queue 
CMPL (RO) ,RO i: Is granted queue empty? 
BNEQ 60$ 3 No 
ADOL #8,RO ; Yes, get address of conversion queue 
CMPL (RO) ,RO : Is conversion queue empty? 
BNEQ 60$ 3 No 
ADDL #8,RO 3; Yes, get address of wait queue 
cMPL =. (RO) , RO : Is wait queue empty? 
BNEQ 60$ 3; No 


TSTW RSBSW_REFCNT(R8) 
CMPL R8,RI 
80$ 
MOVL RSBS$L_HSHCHNBK(R9) ,RO 


MOVL  RSBSL~PARENT(R8) ,R 
JSB G“LCKSDEALLOC_RSB 


SYSLOA .SRC JREBLDOLOCK.MAR;1 
Start on next hash chain 
(R11)+,R9 ; Get address of next List head 


Get next RSB in this hash chain. R9 serves as the Linkage 


pointer while R8& points to RSB to be processed. These start 
out the same but if the RSB pointed fo by R8 gets deleted, then 
R9 is backed up to point to the previous RSB. 


Get address of next RSB 


ALL queues are empty. Now check to see if it's reference count 
is zero. it's reference count is non-zero then we will 
handle it later when we climb up the tree of one of it's 
descendants. 


Are there any sub-resources? 
Yes, move onto next RSB in chain 
ny we deallocating our Linkage? 


ts) 
Yes, back up Linkage pointer 
Save parent RSB address 
Deallocate RSB 

Get parent RSB address 


? 


Sete Se Se Ge Ge Ge Se Ge 


BNEQ 70$ There is a parent, work on it 
BRB 60$ 3; Repeat 

3; Finished one complete hash chain. 

DECL R10 ; Decr. count of hash chains 
BGTR 50$ 3; Repeat 


MOVL  G*LCKS$GL_DIRVEC,RO 
MOVL (RO) ,W*LTKSGL_TS_CSID 


Select a node to issue timestamps for deadlock detection. 

Every node must select the same system. An easy way to select 
the same system everywhere is to use the first entry in the 
directory vector. These also have the (required) property 

that the local $o10 is referenced with a zero. 

Also zero the bitmap expiration seeetenns to prevent possible 
false deadlocks due to the new timestamp issuing system 

having a system time slightly behind timestamps already issued. 


; Get address of directory vector 
3; Copy CSID 
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vires LCKS$I SINT RES Giub = Initialize lock datab 5-SEP-1 1382 90:78:38 EeYSLOA. SRC JREBLDLOCK.MAR; 1 . (3) 
50 ww 2 7E E5 4 MOVAQ G*LCK$GQ_BITMAP_EXP,RO ; Get address of timestamps 
8 7C EC 5 CLRQ cng) ; Reset exact expiration time 
6 7¢ i § CLRQ (RO) ; Reset local (approx.) expir. time 
OFEO 8F BA F 4 POPR oreani.nb.id 08.00 one atts 
05 OOF4 RSB 


<z 


o V04-00 Page 


G 15 
e on Failover 16-SEP-1984 00:38:4 AX/VMS Macr 8 
uit g- 0: ‘$8 SYSLOA.SRCJREBLDLOCK.MAR; 1 (4) 


d LKBs SEP=1984 
-SBTTL LCKSREBUILD_LKBS - Rebuild LKBs 


REBLDLOCK - Rebuild Loc 
iret LCKSREBUILD_L 


Databas 
BS = Reb 


++ 
FUNCTIONAL DESCRIPTION: 
This routine makes a pass through the lock id. table to 
process each lock (and its parents). Root locks are 
sent to the appropriate directory system. Sublocks (if mastered 
remotely) are sent to the system mastering the tree. 
CALLING SEQUENCE: 


JSB LCKSREBUILD_LKBS (called from failover table dispatcher) 
IPL must be at IPLS$_SYNCH 


INPUT ARGUMENTS: 


Ya ee tha) ob ab ad ad ad a aap altel 


FW OOONOUS wr 


R5 Address of failover control block 
OUTPUT ARGUMENTS: 
None 


SIDE EFFECTS: 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


RO - R5 not preserved 


atatatatatatatatatatatatatatatotatatataetetotatotatato) 


Palette lll 1 1) 1) — ba a an a a a Ps Ps Ps ns ns ns Pn ns Pn Pn Pn ns Pn Pn Pn eh tt 


OD DW AAAI IP IP INIM IPM PIPPI INIDI GS BF OMAP PPPS ASUS ISIS ISIS 
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0 
0 
0 
0 
0 
0 
0 LOCKS_DONE: 
0 ; Finished processing entire lock id. table. Continue with next 
8 ; phase of failover. 
01CO 8F BA O POPR #*M<R6,R7,RB> ; Restore registers 
0004'DF 17 0 JMP @W*RETURN_ADDR ; Return to caller via saved ret. addr. 
6 LCKSREBUILD_LKBS:: 
0004'CF 8EDO a popc W*RETURN_ADDR ; Save return address 
64 : Process all locks in the lock id. table. For each lock, do the 
1 : following: 
1 3 If RSBSL_CSID is 0, then it is being mastered here and 
1 3 there is nothing to do for this lock. 
1 3 If RSBS ID is -1 then we have to find out where it 
| 74; s being mastered. We find this out by climbing its tree 
1 ro 8 until we find a RSBSL_CSID not equal to -1. we reach the 
9 4 3 see of the tree, then we send it to the appropriate directory 
3 system. 
1 78 ; if Bseey 518 is a non-zero CSID then we send the lock to that 
! YS 3 system iS LKBSM_RESEND is set. 
0000'CF D4 , CLRL W*CURR_LOCKID ; Initialize current lockid 
1 j NEXT_LOCKID SAVE: 
01CO 8F BB O01 4 PUSAR #*M<R6,R7,R8> 3 Save registers 
1 5 NEXT_LOCKID: 
000 ‘CF D6 Q1 INCL W*CURR_LOCKID ; Advance to next lock id. 
OOO'CF Di 01 CMPL W*CURR_LOCKID,- ; Reached the end of the id. table? 


<z 
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vires tid LCKSREBUILD_LKBS = Rebuild LKBs gS EE =19 4 80: #338 EOYSLOA. SREIREBLDLOCK MAR: 1 ° (4) 
00000000 ' GF 1 G“LCKSGL_MAXID 
dC = OU*CA 1 BGTRU LOCKS_DONE ; Yes 
1 SAME _LOCKID: 
51 OOO'CF oD 1 MOVL W*CURR_LOCKID,R1 3; Get lock id. 
50 0090 OOO'GF oD 1 MOVL Saks ceet 1D TEL RO ; Get address of lock id. table 
6 6041 OD MOVL (RO)CRIJ,R6 ; Get pointer to LKB 
__ ee BGEQ NEXT_LOCKID ; Unused entry 
28 20 ‘6 dO V LKBSL_RSB(R6) ,RB ; Get address of RSB 
5 38 A 0 MOVL RSBSL-CSID(RBS ,R3 ; Get system managing this resource 
m3 BEQL NEXT_COCKID ; It's us 


; R3 contains CSID of syeten managing this resource tree or -1. 
:; If it is a CSID and the lock does not have to be resent, then 
3 just continue onto the next lock id. 

; Otherwise, climb up the tree to the first lock that is not 

; marked to be resent and whose RSB has a valid CSID (or zero). 
; Then resend locks below that lock to that system. If we 

3; reach the root of the tree, then send the root lock to the 


k 
K 
1 
i? i 
! 3 4 
128 398 
129 94 
128 95 
128 38 
ss 
1 99 
1 rt 
01 401 
ge ak 
135 404 
0135 405 
0135 40 : 
0135 409 ; appropriate directory system. If we are the directory 
b132 408 ; system for this resource, then we manage the 
4 5 409 ; tree. Likewise, if we reach a lock whose RSB has a 
135 410 ; zero CSID then we are managing this tree. In this case, 
0133 ai; ; reclimb the tree clearing the RSBSL_CSID fields along the way. 
BS 0135 113 TSTw R3 ; Is CSID valid? 
0S 19 135 414 BLSS 20$ 3 No, lock must be remastered 
OA €1 0139 415 BBC #LKBSV_RESEND,- ; Branch if this lock 
CC 2A A6 o1 8 416 LKBS$W_STATUS(R6) ,.NEXT_LOCKID ; need not be resent 
13€ rh 20$: 3; The current lock must be resent. Climb tree to first lock 
: : rh ; that doesn't have to be resent (RESEND bit = 0 and CSID is valid). 
57 56 00 4 E 631 MOVL R6,R7 ; Save starting LKB in R7 
55 56 00 13) 2 § MOVL R6,R5 ; Put starting LKB in R5 
3 3 6 biee 424 30$: MOVL R5,R6 : R6 points to last LKB 
55° 48 AS DO 0147 425 MOVL  LKBSL_PARENT(RS) RS : RS points to parent LKB 
15 #1 148 4 § BEQL 40$ ; Reached the top; R6 is root LKB 
28 50 AS DO 0140 4 MOVL LKBSL_RSB(R5) ,RB 3; Get RSB 
5338 AB 00 151 4 : MOVL RSBSL_CS1D (RBS .R3 : Get CSID 
6c 1 138 6 BEQL 50$ 3; This system is managing resource tree 
A €0 Q15 430 BES #LKBSV_RESEND,- ; Branch if this LKB must be resent 
E8 2A AS 159 431 LKBSW_STATUS(RS) ,30$ 
5 BS 015C 4 ; TSTW R 3; Is CSID valid? 
E4 19 185 ? ? BLSS 30$ 3 No 
16 435 : RB points to a RSB with a valid CSID and the corresponding lock 
16 4 $ ; Cin R5) does not need to be resent. Resend the lock pointed to 
1 ? 3; by R6 to the same system. 
61 11 19 a39 BRB REBUILD 
16 tty 40$: ; R6 points to root LKB. If its RSBSL_CSID (R3) is valid then resend 
16 rei ; to that system. Otherwise resend to the appropriate directory 
+ at 3; system (unless we are the directory system for that resource). 


<z 
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23 8 1 ¢ 445 TSTW R3 : Is CSID valid? 
RAY 1 rr BGEQ rte 3; Yes 
53 aS aaa # 166 44 MOVL G*LCKSGL_DIRVEC,R3 ; No, get address of directory vector 
1 46 A C 0160 448 MOVZWL RSBSW_HASHVAL(RS),R1 =; Get hash value 
5 be 1 449 CLRL R 3; Clear high order hash value 
51 50 51. F&A 17 450 EDIV - giB3) R1,R0,R1 ; Compute hash index (in R1) 
53. 6341. «00 «0179s 451 MOVL (R3)CRI4,R8 : Get directory system 
44 4 17D $26 BNEQ meeuLe ; It's not us 
01 A 17F) 0s 45 BISW #RSBSM_DIRENTRY,- ; Set directory entry bit 
OE A8 18 434 RSBSW_STATUS (RBS 
1 $28 50S: ; This system is now peneg ing this resource tree. Starting at 
1 45 3; the current ,K6 (R7) climb tree to LKB whose RSB contains a 
: $38 ; zero CSID (R5) clearing RSBSL_CSID along the way. 
58 50 A7 00 1 460 MOVL LKBSL_RSB(R7) ,R8B ; Get address of RSB 
38 AB 85 0187 46) TSTW = RSBSL-CSID(RBS ; Make sure current CSID is invalid 
3 18 O18A 236 BGEQ 60$ 3; Error - it's valid 
it a D4 018C 46 CLRL RSBSL_CSID(R8) ; Clear CSID 
57 48 A DO O18F 464 MOVL wos tameeentthanarelaet ; Get next parent 
. 3 Bia3 465 CMPL R7,R : Reached the top? 
&B 12 0196 466 BNEQ 508 : No 
019 468 : If RS is 0 then the current lock is a root lock that we are 
019 rt ; Now mastering (on the directory system). Fork in this case 
1° rth ; to allow other systems a chance to get directory entries. 
55 oD5 198 ore TSTL RS : Is this a root lock? 
0 12 O19K 47 BNEQ 55$ 3 No, advance to next lock id. 
01CO 8F BA 19C¢ 474 POPR #*M<R6,R7,RB> 
55 44h C1 B14 of? ADDL3 #<LUBSB CLUF CB, ; Get address of failover control block 
08 90 OAC 279 MOVB #IPL$_SYNCH,- 3 Store fork IPL 
0B AS O1AE 478 bas FKBSB_FIPL(RS) 
FE47° 30 3188 480 BSBW CNXSCHECK_FAILOVER ; Check for another failover 
FF4A = 331 pie? $3) BRw NEXT_LOCKID_SAVE ; Yes 
FF4B 31 O1BC re 55$: BRW NEXT_LOCKID 
18F rtf 60$: BUG_CHECK LOCKMGRERR,FATAL 
By aR REBUILD: 
1¢ 4 ; Have a LKB (in R6) that needs to be rebuilt on destination system 
1C t88 3; (CSID in R3). However, locks in certain states aren't resent. 
1S $33 3; Dispatch on lock state. 
58 50 A6 DO OIC 491 MOVL LKBSL_RSB(R6) ,RB ; Get RSB address 
\ee $36 DISPATCH LKB$B_STATE(R6), TYPE=B, PREF IX=LKBSK_,- 
107 494 <GRANTED,20$>,- 
107 495 <CONVERT,20$>,- 
1C7 $38 <WAITING,20$>,- 
10749 <RETRY, 10$>,= 
1¢7 498 <SCSUALT, 108>,- 
it 44 289 BUG_CHECK LOCKMGRERR,FATAL; Other states are not allowed 


<z 
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108 § 10$: 5 Pendie Locks in RETRY and SCSWAIT states as special cases. 
108 ; If they are a conversion then they must be rebuilt. If they 
108 4 3 are : new lock then they are not sent as they will be 
1°e 5 ; retried or deallocated. 
01 €E€O 01DB : BBS #LCKSV_CONVERT,=- ; Branch if conversion 
03 28.A 1DD 3 LKBSW FLAGS (ROS, 208 
00C 31 15 4 BRw STORE-CSID : New lock = just store CSID 
if 1 20$: : Rebuild LKB (in R6) on system whose CSID is in R3 
FEIA’ 3 1€ i§ BSBW cnrsALL oc ay 3; Allocate a CDRP 
FE17° 168 14 BSBW CNXSRESOURCE_CHECK 3; Onl retry a Limited number of times 
67 50 5? 1E 15 BLBC RO, 30$ ; Couldn't allocate one or CSID invalid 
51 OC Ab g 1€C «6516 MOVZWL \ atau R1 : Get PID index 
0B 1 1F 17 BEQL 5$ ; Branch if system owned 
50  Q00000000'GF D0 OTF | MOVL G*SCHS$G PraveC. RO : Get address of PCB vector 
51 6041 DO OTF 1 MOVL (RO) CRIJ> 3; Get address of PCB 
48 AS 2) DO O1FD 520 25$: MOVL R1,CORPSL_ RVALB(RS) 3; Store PCB address in CDRP 
C ~ 6 00 01 521 MOVL ge $L-VAL1(R5} 3; Store LKB address 
3 A 38 b0 05 5 § MOVL R8,CORPSL-VAL2(R5) 3; Store RSB address 
64 A300 0209 MOVL  CSBSL_CLUB(R3) ,RO : Get CLUB address 
OOAC C0 BO 020D 4 MOVW  § CLUB$@_MEMSEQ(RO) ,- : Store MEMSEQ in CDRP 
34 A 0211 5 CORPSL_VAL3(R5) 
sae 8 9E 8 3 : § MOVAB WL CESELD REBLD otk. ; Store address of message build routine 
01CO 8F - 0219 528 POPR #°M<R6,R7,RB> ; Restore registers 
OED" 0 0210 529 BSBW CNXSSEND "ASG. CSB ; Send the message 
57 50 €9 022 530 BLBC RO,50$ 3; Exit this routine (restart failover) 
01CO 8F BB 2 1 PUSHR  #*M<R6,R7,R8> : Save registers 
56 f AS 00 § MOVL CORPSL WALTERS) OR : Get address of LKB 
L ; Get address o 
58 450 a6 C—O 0 : 5 : MOVL  LKBS$L_RSB(R6), Rene Get add f RSB 
O2eF : 5 ; Have response message. Registers contain: 
O2eF 5 $ : : Address of response message 
O22eF 5 3 Address of CS 
O22F 538 : Re Address of CDRP 
022F 39 $ R6 Address of LKB 
0 ; rt ; R8& Address of RSB 
50 64 A3 00 8 F rt} MOVL CSB$L_CLUB(R3),R 3; Get address of CLUB 
OOAC CO BI ; 4 CMPW CLUBSO Stet th ae ; : Check MEMSEQ in message 
OC A 44 LKMSGSO_MEMSEQ(R2S 
12 9 545 BNEQ [REBLD_RETRY . 
8 4g DISPATCH ™ LKMSG$B_STATE(R25, WYPE SS PREF IX=LKBSK_,- 
B 48 <RSPNOTQED,REBLD_NOTQED>,=- 
49 <RSPDOLOCL ,REBLD “DOLOCL>, - 
50 <RSPRESEND,,REBLD_ =RESEND>. - 
B 51 <RSPGRANTD, *REBLD~ GRANTD>,=- 
: 26 pieaide REBLD _RETRY>, ° 
GF iH BUG_ CHECK LOCKMGRERR,FATAL; Other states are not allowed 
36 30$: ; Failed to allocate a CDRP. Wait and retry if SSS$_INSFMEM. 
ef : Bugcheck otherwise. 
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0000 ' 8F 50 6B 59 CMPW RO, #SS$_INSFMEM 
1¢ e) 3 6 BNEQ ee 7 
4 0 er BA A POPR ays R7,R8> 
00001 ¢ ee E 56 ADDL3 #CLUB$6_CCUFCB,- : Get address of failover control block 
55 00000000’ GF 6456 CLUSGC_CLUB,RS5 
08 90 6A 64 MOVB fia _SYACH - ; Store fork IPL 
0B A C 565 FKBSB_FIPL(RS) 
E 06 FORK_WAIT ; Fork and wait 
4B so 6 6 BRB CHECK_FAILOVER2 ; Check failover and redo same lock 
$3 40$: BUG_CHECK LOCKMGRERR, FATAL 
9 50$: ; Exit this routine as we will start another failover. Have to 
4 3; deallocate CDRP in RS. 
, ae, ae 7A 7 MOVL R5,RO 3; Address of CORP 
00000000'GF 16 74 JSB G*EXESDEANONPAGED : Deallocate it 
FD7A' 31 BRW CNXSEND_FAILOVER 3; End this failover 


REBLD_NOTQED: 
; Lock wasn’t rebuilt. This may be due to insufficient lockids 
; on the remote system or it may be a bug. Either way, bugcheck. 
3; As currently implemented in DSTRLOCK, we should never see this 
; bugcheck as the remote system bugchecks with an appropriate 
; resource exhausted bugcheck. 


BUG_CHECK RESEXH, FATAL 


REBLD_DOLOCL: 
; Manage this resource on this system 


PIPIPOPOPOPOPONIPURIPUNINONPINONOPONo POPP fnonopnorororornoporornrrnrnn) =o: 
SNNNNS 
>rrro 


PY SF OOOO0000000000 000000000 00 09 00 GCN CO CD CD CD CD CD CD CO“) 
SOOGDOGDOOOOO0O0O00 O00 000000000000 0000 09 090008 INI 


DDPRPLPLPLDPDP PDE DP DP DPDPE DDE PPPS PV PV IVIVSVSIVSUSVSVSUSVS VSS «= 


SOOOSOO OOOO OOCOOOOCOCOCOOOOCOCOCOOCOOCOSOOOCOOCOOOOOCOOCOOOCOOOOOOOOOOOOOO Mme 


bi 
§ 305 
6 8 
6 9 
6 0 
? 1 
$388 
6 4 
~ 5 
Ae 
00000002 A 9 -I1F NE CAS_MEASURE 
00000000 ' GF D6 A 0 INCL G*PASS$GL_DIR_OUT 
1 ~ENDC 
38 AB D4 ° 5 CLRL RSBSL_CSID(R8) : Indicate it's managed locally 
; 5 REBLD_RETRY: 
FD6A" 30 6 BSBW CNXSDEALL_WARMCDRP_CSB ; Deallocate CDRP, message bfr., etc. 
25. «1 4 BRB CHECK_FAICOVER 
9 REBLD_GRANTD: 
, 3; Lock was rebuilt on specified destination system 
ppp000g? § ~1F NE CAS pe Asune 
00000000'GF oD INCL G*PASS$GL_ENQNEW_OUT 
3 3 -ENDC 
10 A2 00 E $ MOVL LKMSGSL_MSTLKID(R2),- ; Store master lock id. in LKB 
54 Ab 1 KBSL_REMLKID(R6) 
FDSA’ 30 3 8 BSBW CNXSDEALL_WARMCDRP_CSB ; Deallocate CDRP, message bfr., etc. 
53 4C Ad 00 4 44 MOVL CSBSL_CSIB(R3) ,R3 3; Get destination CSID 
AA 19 STORE_CSID: 
AA 1% 3; If the CSID in R3 is different than the stored CSID, then store 
AA 1 3; this one and mark all locks to be resent. However, we verify 
AA 14 3 that the ong we are overwriting is not valid. If it is valid, 
AA 15 3; then we verify that it got stored as a result of NOT rebuilding 


en 


rena 


38 A8 ; i 
01 
38 AB 3 Dd 
0400 8F AA 
2A AG 
01¢0 BF BA 
FD3C" 30 
01C0 8F Re 
FEGE 1 
00000002 
00000000'°GF 06 
18 A D 
rope" 80 
53 8EDO 
01C0 ar BA 
Foic® 30 
gice gf BB 
6 ° 
FED 1 


mec 


PEER E EE BWW PROPRIO 


PRIPDPPIPINPIPIPIPIPYPIPPIPIPIPIPIPIMPIPMPIPIPIPIPIPIPTOPIPUNRINPYD ae 
MMMMNOVSCVTVVIVINOANOAOOOOOoOoWWwWw 2 
POEAOAAOOOAOOOAOOOOOOOSOOOOOOSCOOOSOOoO Tro 
NOUS WRC ODN UE WIN SO OONOUE WN" OOOnNO 


CGOOOCOOCOCOGOOOOCO OOOO OOOOOOOOOOOOOOOOO 
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SYSLOA.SRCJREBLDLOCK .MAR; 1 ) 


; a lock (see REBUILD and 10$ code, above and LCKSMARK_FOR_RESEND). 


40$: BICW 


CHECK_FAILOVER: 


CHECK_FAILOVER2: 
BSBW 


PUSHR 
BRW 


REBLD_RESEND: 


R RSESL_CSID(R8) 
LCKSMARK_FOR_RESEND 
R -RSBSL CSIBCRB) 
#LKBSM_RESEND,- 
LKBSW_STATUS(R6) 
#°M<R6,R7,RB> 
CNXSCHECK_FAILOVER 
R7,R8> 


#OM<RE 
SAME_LOCKID 


goes it match what's already stored? 
es 


Mark all other LKBs to be resent 
; Store new CSID 


s*aee resend bit on this one to 
ndicate it has been resent 


; Check for new failover 


; Resend request to specified system. 


CAS_ MEASURE 
G*PASS$GL_DIR_OUT 


LKMSGSL_CSID(R2) 


CHXSDEACL_WARACORP_CSB 


#°M<R6,R7,RB> 
CNXSCHECK. FAILOVER 
#°M<R6,R7TRB> 


R2 
REBUILD 


; Save CSID of gpect tied system 
; Deallocate CDRP, 

; Restore CSID 

; Move LKB address 


; Check for new failover 


; Move LKB address 
; Send to specified system 


message bfr., etc. 
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a ~SBTTL LCKSREBLD_LOCK = Rebuild a lock during failover 
; FUNCTIONAL DESCRIPTION: 


ao 
mc 
wo. 
, - 
| oa ag 
oo 
on 


This routine is called from the received lock message routines 
to build a LKB during failover. 


CALLING SEQUENCE: 


BSBW LCKSREBLD_LOCK 
IPL must be at IPC$_SYNCH 


INPUT PARAMETERS: 

R6 Address of LKB 

R Address of RSB 

R9 Address of input message 
OUTPUT PARAMETERS: 

None 
SIDE EFFECTS: 


RO - R4 not preserved 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Se Se Ge Ge Ge 


LCKSREBLD_LOCK:: 


DOCCCO FTN NWN WW HWMMMMMMMMMMMMMMMmMmMmMmmmmmmmmmemern 
DNWAWAAWNT WWW SM MmMmMmMmMmMmMMMmMmMmmMmmmmmMmmmmmmmmmm CA 


MEW 9 ODNAMN EWN SO ODNAUE WN $9 OO NOUS WO ODNAOUS W000 


IOS OS OSD. DS OD Os DO OS DS OSD DDD DDD AAA AAA AAA AAA AAA AA AAAAAAO AAO 
DSSSSS DOOD DODO OD O6900 09 09 09 G9 00 09 G9 G9 dd dd ed ed ed ed de > Gh OH OED Cv oe y aT 


SOOOOCOCOSOOOCOOCOGOCOOCOCO COCO OOO OOOO OCOOOCOOOOOOO OOOO OOOOOOOOOOOOO 


6A AD =: 90 Ove LKMSGSB_LCKSTATE(R9),- ; Store lock state 
36 A6 LKBS$B_STATE(R6) 
; Dispatch according to lock state 
amshonne” LKBSB_STATE(R6) , TYPE=B, PREF IX=LKBSK_,- 
<GRANTED,40$>,- 
<CONVERT,30$>,- 
<UALTING.G0S>,= 
208: BUG_CHECK LOCKMGRERR,FATAL; Illegal lock mode 
30$: ; Lock state is CONVERT. Lock needs to be placed in sequence 
3; number order in the conversion queue and then the value 
; block should be stored if it's newer than the existing value block. 
53 118A 3 MOVAB RSBSL_CVTQFL(R8) ,R3 :; Get address of conversion queue 
3 1 BSBB ah : Process Like WAITING Locks 
OA 11 BRB 0$ ; Process value block Like GRANTED Locks 
8 40$: ; Lock state is GRANTED. Insert on granted queue, set LKB status 
H ; bits and store value block if it's newer than the existing one. 
38 A OE 1 INSQUE LKBS$L_SQFL(R6),- : Insert lock on granted queue 
9 A ¢ SBSL_GROFL(R8 
eA . 88 : ? BISB Lenses LStaty (R9),- ; Set appropriate status bits 
C A c3 1 5 50$: SUBL3 RSBSL-VALSEQNUM(R8),- ; Is value block in message newer 


1c 
a 
zee 


rseange id 


oo 
co 


e 
ld a lock during % “SEP=1 
KMSGSL_VALSEQALT(R9),RO; than current one in RSB? 


SYSLOA.SRCJREBLDLOCK MAR; 1 


mec 
qo. 
-— 
ow 


; Traverse queue (address in a for correct place to insert lock. 
; R4& contains this lock's sequence number. 


MOVL : Save eseress of header in R2 
90$:  MOVL Rashe R2 Get n 
er RS R$ : Reached. eke end? 
SUBW3 = R4, LKBSW_RQSEQNM-LKBSL sir lthe> ,n0 Compare sequence numbers 
e to next 


BLSS : 
95$: a LKBSL_SQFL(R6),@4(R2) |; Insert this lock before lock in R2 


ck 
CK 
1 5 BLEQ 3 No 
; . D MOVQ Renssee ve ane - ; Yes store new value block 
§ : 7D 7 MOVQ tines VALBLEAL +8(R9), = 
4A dO 1 MOVL PeRsCSL VALSEQALT(R9),=- ; Store new sequence number 
CA 71 asee VALSEQNUM(R8) 
0 AA 71 BICW HE] A VALINVLD = ; Clear value invalid flag 
OE A 71 RSBSW_STA Us (RBS 
01 =«€1 71 BBC #RSBST_VALINV : Optionally set flag 
04 69 A9 71 LKMSG$B RSTATUS{RO) 55$ ° 
0 A8 71 BISW #RSBSM_VALINVLD,- 
OE A 71 Reese STATUS (RBS 
05 4 55$: RSB 
722 60$: : Lock state is WAITING. Set appropriate LKB status bits and 
4 ; insert lock onto waiting queue in sequence number order. 
53 20 A8 9 4 MOVAB RSBSL_WTQFL(R8) ,R3 ; Get address of WAIT queue 
4 80$: ; Common code for waiting and converting locks 
04 A8& 7 BISW #LKBSM_ASYNC,- ; Set ASYNC bit 
2A A6 7 LKBS$W_STATUS(R6) 
54 0A9 3C 7 noveWl. LKMSGSW_RQSEQALT(R9) ,R4 ; Get request sequence number 
10 A6 «654 ~~ =6B0 a OVW R4, LkBS@_ RQSEQNM(R6) Store 
7 
* 
73 
7 
i 
7 
74 
74 
74 
74 
74 
74 


SOCOCCCOCOCOCOOOOCOSOOOCOCSOOOCOOOOCOOCOOOOOOOOOOOOOOOO 
WWAWAA AA AWA AAAI AWWW WAIN WIN AIA AAI ANA AANA A AAI 
DARAEARXRE DINE BB BE EE WWI NAAN AI nononononons | 
NPRIPRIIN EF FP VW FP PP POMOMMMMPS SS PF ONVMVOMOPNVWIOCVTTS® va 


OWOONAUE WN O GONNA WIN O OD NAU EWN  O OONAU EW OOOO 


te 97$: ; Have a new highest sequence number. Store it +1 in RSB. 
74 ADDWS #1,R4,RSBSW_ROSEQNM(R8) 
74 BRB 95$ 
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-SBTTL LCKSCHECK_DIRENTRY = Check if this is a directory entry 
FUNCTIONAL DESCRIPTION: 


This routine is called during failover when it appears that 
egetper system has performed a eeeeres e~y! 

If this is a rors resource then we veri y the CSID in the 
directory entry is valid. If it's not, then the requesting 
system gets to manage this resource. 


reg id 


og 
xc 
mm. 

= 
or 
-oO 
zo 
2 


) 


If this is not a root resource, then we must be managing this 
tree but have not yet reached this RSB. In this case, ciear 
the CSID in this RSB and in all eyeer* RSBs until we reach 
an RSB that already has a zero CSID. 

CALLING SEQUENCE: 
BSBW LCKSCHECK_DIRENTRY 


INPUT PARAMETERS: 


DPA AAA AAA AAA AAO Om 


AOEQCOCOCOMMIMIVIVINUTIUINA so Mm = 


R4 CSID of system genes ng resource (or -1) 
RS CSID of Syston doing directory lookup (or lock rebuild) 
R8 Address of RSB 
OUTPUT PARAMETERS: 
RO Completion code 
R4 CSID of system managing resource or CSID 


of system to resend request to 
IMPLICIT OUTPUTS: 
The CSIDs in this RSB tree may be modified 
COMPLETION CODES: 


0 This is not a directory entry - rebuild the lock 
1 This is a directory entry - perform a directory lookup 


SIDE EFFECTS: 
RO - R3 not preserved 


a 


WWIWAINIANINAANIWI AWA WIAA WN WNAAI AA AAANNAWI WWIII NIAAA IAIN AIAIA A AAIAI NIAAA 


DOO OSD OOOO AAA AAA AAA AAO OF 


Bete Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Sse Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Se Ge Se Ge See Ge See Se Ge Se Fe Se Se Se 


NOUS WR HO OD NOAUE WN $9 OONAULS WN 2 O OO NAUE WO OONAUES Wino 


OOO 000000000009 00 90909 09 09 09 NINN NI NINN OF 


LCKSCHECK_DIRENTRY:: 
MOVL Move CSID for this RSB 


54 OD 4 R 
48 A8 DS TSTL RSBSL_PARENT(R8) Is this a root resource? 
ef if BNEQ  50$ No 
B TStw OR Is CSID valid? 
26 O14 BGTR 4 Yes 


$ 
; CSID is invalid. Verify this is the directory system for this 
3 resource and if so, make this the correct directory entry. 


MOVL G*LCKSGL_DIRVEC,R3 ; Get address of directory vector 
MOVZWL RSBSW_HASHVAL(RS),R1 =; Get hash value 


OMWAAAYIW—* MA OOOO OOOOOOOOOODOODOOOODOOO OO OCDDOOVDOOVOODOOOOODOWOOOOOOO 
Go000909000909 08 SINAN Nee ae 


SOOQGOOOOOOOOOCOOOOCOCOCOOOSOSOSOSOCOOCOCOCOSOCOCOCOCCOCOSOOOOOOCSOOOOOOOOOOOOO 


NNSA AA AA AA OOO 


NOMS WIN —O Oo 


SOOOOOCOOCOOoONO 


53 00000000 ' GF go 
51 44 AB 


C 16 
REBLOLOCK = Rebuild Lock Database on Failover 16-SEP-1984 00:38:4 AX/VMS Macro v04-00 Page 1 
iret LCKSCHECK_DIRENTRY = Check if this is a ey 7 90: 78:38 YOYSLOA. SRE JREBLDLOCK MAR: 1 ° ( 
5 4 CLRL f ; Clear high order hash value 
a i} F4 Ag 2 ; 03 EDIV Re (R3),R1,R0,R1 3 gompute ash index (in R1) 
4 634 D MOVL (R3)CR1S,RE 3; Get directory system 
0 1 C 1 BNEQ 40 ; It's not us 
1 A 1 BISW #RSBSM_DIRENTRY,- ; It is us; set directory entry bit 
OE A 1 RSBSW_STATUS(RBS 
1 4 13 BSBB LCKSMARK_FOR as ; Mark att LKBs on this RSB to be resent 
38 A8 D 1 MOVL R5,RSBSL_CSIB(R8) ; Requestin System manages resource 
4 D 98 1§ MOVL R5,R4 3; Return this CSID in R4 
0 1 4 9B 17 40$ MOVL #1,R0 3; Process Like a directory lookup 
oF B18 me 
OF 0 50$: ; This RSB is not a root resource. This tree must be managed 
oF 1 ; on this system but we haven't reached this RSB yet. Set 
oF § ; all sy on this leg of the tree to be managed locally. 
$36 3 R3 = CSID 
or : 3 8 = RSB 
52 28 4 039 § MOVL ng -Re ; Move address of RSB 
5 BS O3A2 60$: TSTW R ; Verify CSID is not valid 
1 14 Q3A4 8 BGTR 80$ 3; Error 
8 4 D4 B38 9 CLRL RSBSL_CSID(R2) ; Manage this resource locally 
52 48 A 09 3A 0 MOVL RSBSL_PARENT(R2) ,R2 ; Get parent 
09 13 O3AD 831 BEQL 80$ : Error if we reach top of tree 
53 38 A2 0 O3AF o3¢ MOVL RSBSL_CSID(R2) ,R3 ; Get CSID 
ED 1 ert S37 BNEQ 60$ 3; Repeat 
50 D4 $382 835 CLRL RO ; Set status to indicate rebuild lock 
05 0387 836 RSB 
0388 837 
0388 838 80$: BUG_CHECK LOCKMGRERR, FATAL 
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9 ~SBTTL LCKSMARK_FOR_RESEND = Mark LKBs on RSB for resending 


4 + 
rk FUNCTIONAL DESCRIPTION: 
LCKSMARK_FOR_RESEND is called during failover whenever the RSBS$L_CSID 
field changes from invalid to valid (but not zero). This routine 
os all - state queues on the RSB and marks all the LKBs 
o be resent. 


3? 
; 
. 


This routine is also called during failover whenever the RSBS$L_CSID 
field changes from one valid system £9 another (but not zero). 
In this case, it is necessary to verify that no locks have 
actually been resent to the old system. 


DOOOO OOOO Oo owOwD 


AOOIAOOOIOOOOOOOOOAOAIOOOMAIAOOOOAOOO 1 


Wi 


NOTE: The two cases are distinguished by whether or not the CSID in 
RSBSL_CSID is valid. Consequently, storing a new CSID MUST be 
done AFTER calling this routine. 

CALLING SEQUENCE: 


BSBW LCKSMARK_FOR_RES.ND 
IPL must be at IPL$_SYNCH 


INPUT PARAMETERS: 
R8 Address of RSB 
IMPLICIT INPUTS: | 
RSBSL_CSID is used as described above. 
OUTPUT PARAMETERS: 
None 
SIDE EFFECTS: 
RO - R2 not preserved 


Ww 
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LCKSMARK_FOR_RESEND: 
ASSUME RSBSL_CVTQFL EQ RSBSL_GROFL+8 
ASSUME RSBSL_WTQFL EQ RSBSL_CVTQFL+8 


0.00.0909.09 69 09 C0 Co Cd On 09 G9 Cd 09 09 09 C0 Cd OD 0d 0D 69 Cd CD OD OD CO OD CD OD 0D 0D 0D 09 09 CS CD CD 09 CD C9 CD CD 0D 09 C9 C0. 0D 09 CD CD00 CD OD 0DCD 
OOOO O00. 000900 09 0969 09 09 09 SI NIN NS SN NSN OA A AOA AAA A UII UT UTI 
AOS WN 9 OOO NA NEW § O OO NIA MEIN 9 OD NIA EWN CO OO NAUE WP OO OONAUS 


ee ee ee ww wwe ole ol oleol ol ol ololololol =) 


SSSSSSAAASAOOOOOO DOOD 


WA FAO DKAOWUWOOMOOOOMOAOOOAOOOOO 


51 10 AB ODE MOVAL | ob epee di ; Get address of granted queue 
03 00 MOVL #3,R ; Process all three queues 
50 51 400 10$: MOVL R1,R0 ; RO will step through queue 
50 0 00 208: MOVL (RO) ,RO ; Get next LKB on queue 
51 0 01 CMPL RO,R1 3; Reached end of queue? 
2 13 BEQL ; Yes 
38 A B5 TSTW Best _CSIDCRE) : Is CSID valid? 
g H BGEQ $ : Yes 
“ne FOAM BISW #LKBSM_RESEND,- ; Set resend bit in LKB 
F2 AO LKBSW_STATUS-LKBSL_SQFL (RO) 


E 16 
REBLDLOCK Rebuild Lock Database on Failover 16-SEP-1984 00:38:4 AX/VMS Ma v04- 
Hire dtd LCk ARK_FOR_RESEND = Mark LKBs on RSB f green 1882 90: 38:38 SYSLOA. ORE SREB DL OcK. MAR; 1 aes 
eB 11 4 H BRB 20$ ; Move on to next LKB in this queue 
OA £0 dB 99 25$: BBS #LKBSV_RESEND,=- k if lock h t i 
E6 F2 AO $00 (KOS STATUS-CKBSL_SOFL (RO) 208 (°Ck MAsn’t Deen rebuilt yet 
3 301 DISPATCH LKBSB_STATE=LKBSL_ SOFLCROD, TYPE=B,, PREF IX=LKBSK_, 
§ E 308 <RETRY,20$>,- 3; These states haven't been rebuilt 
3 904 <SCSWAIT, 20$>,- ; and are thus okay too. 
E0 905 <RSPNOTOED, 20$>,- 
G ‘ s BUG_ CHECK LOCKMGRERR,FATAL 
51 08 CO F 909 30S: ADDL #8,R1 ; Point to next queue 
CD 52 F5 O3F 910 SOBGTR R Os 
0 O3F& 911 Ht Se + Repeat for all three queues 
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FUNCTIONAL DESCRIPTION: 


This routine makes a pass through the resource hash table 

to rebuild the RSB database. For each RSB, it computes new group 
grant and conversion grant modes, a new BLKASTCNT, and grants 

any possible unprotected locks. 


; CALLING SEQUENCE: 
JSB LCKSREBUILD ee from failover table dispatcher) 


IPL must be at IPL$_SYNC 
INPUT PARAMETERS: 


RS Address of failover control block 
OUTPUT PARAMETERS: 
None 


SIDE EFFECTS: 
RO - RS are not preserved 


LCKSREBUILD_RSBS:: 
Popc W*RETURN_ADDR - Save return address 
PUSHR #*M<R5,R5,R7,R8,R9,R10,R11> 


; Loop through all RSBs in the resource hash table. For each 
; RSB, process it's locks. 


ASHL G“*LCKSGL_HTBLCNT,#1,R10 ; Get size of hash table 
MOVL G*LCKS$GL—HASHTBL.R11 ; Get address of hash table 


DOOOOOOCOCOOCOC COCO COOSCOSOOOOOCOOOOCOOCOCOCOO Mec 


FRESE FWWIWIWWIWINWWWANNWAA NW WANNA 
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5A 01 Q0000000'GF 78 
5B 00000000'GF 00 


BRR RRR EEE FWNWWWWNWIINIIRPONONPOPONININONIN SO 


WDODODODODOOWDOOVO DOO OVO ODOODOOVOOOOOOODOODODODOODOODODODODOODOOOOOOOOODOOOOOOOOO 
WO NOA EWN SO OOO NIA UE WIN SO OD NAUE WIN OC OD NAME WIN 0 OD NIA UE WIN OOOO WW 


FKBSB~FIPL(RS) 


AEM WWW DD ONUVINNIN FB FFM OOO00 98 ew 


04 
04 5 
8 2 10$: 3; Start on next hash chain 
58 8B OE 8 : MOVAL (R11)+,R8 3; Get address of next List head 
Re ; 20$: 3; Get next RSB in this hash chain. 
58 68 00 be 5 MOVL (R8) ,R8 ; Get address of next RSB 
04 13 04 5 BE 3; Reached end of chain 
31 10 se 5 BSBB PROCESS_RSB ; Process it 
ieee r : BRB 20$ ; Repeat 
4 62 308: 3; Finished one complete hash chain. Fork to allow SCS to get 
2 ° 3 a chance to execute and then proceed to next hash chain. 
53 SA 7D 04 6 mova aye 87 - Save size and address of hash table 
OFEO a A 06 6 POPR #°M<R5,R6,R7,R8,R9,R10,R11> 
8 0 04 6 MOVB = #IPL$_SYNCH,- ; Store fork IPL 
eee te. 8 
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iret LCKSREBUILD_RSBS iets 1 89: i#: $8 SYSLOA.SRCJREBLDLOCK.MAR;1 ° 
FBD1' 30 042% A BSBW cumecue ce fait over Check for another failover 
FEO 8F 4 f 7 PUSHR #*M<R5,R6>R7,R8,R9,R10, ri1> 
A 3 D 04 ie mMOVa R3,R10 4, Se size and address of table 
SA D7 04 | 97 DECL R16 : Decr. count of hash chains 
DS = «14 ? ; are BGTR 10$ 3; Repeat 
OFEO 8F BA 463A 976 POPR #*M<RS,R6, iF phe R9,R10,R11> 
0004'DF 17 OQ43E 977 JMP @W*RETURN.A ; Return to caller via saved ret. addr. 


aN 


5$: : porire that the CSID in the RSB is valid and equal to the 
3; CSID in the parent RSB. ‘ 

; Then loop through all locks on all three queues. As we do this 
3; we will compute new group rant and conversion grant modes, 


; a new BLKASTCNT, send bloc ing. ASTs 
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V =800 PROCESS. RSE - Process a single RSB durin ~$Eb=} 382 38:79:38 USYSLOA. SREIREBLOLOCK MAR; 1 vet 2) 
rf $46 -SBTTL PROCESS_RSB = Process a single RSB during failover | 
44 1 344 | 
22 9 ¢ ; FUNCTIONAL DESCRIPTION: | 
4G 3 4; This routine is called during failover to process a single RSB. 
44 985 ; It regeuputee the group grant modes, ne AST count, queues 
re 9 § ; blocking ASTs and grants locks, where possible 
44 ‘ 8 ; CALLING SEQUENCE: | 
44 4 0; BSBW —PROCESS_RSB 
a4 931 ; IPL must be at IPL$_SYNCH | 
225998 > INPUT PARAMETERS: | 
44 994 ; 
bee 444 ; R8 Address of RSB to be processed | 
442 997 : OUTPUT PARAMETERS: | 
4s 998 ; 
0442 999 ; None | 
442 1000 ; 
44 100) ; SIDE EFFECTS: 
0442 1 6 : 
0442 1003 ; RO - R7, and RY destroyed 
0442 1004 ;-- 
0442 1005 | 
0442 1006 CSID_ERROR: 
0442 1007 BUG_CHECK LOCKMGRERR,FATAL; CSID in RSB not valid or not equal 
0446 1008 ; to parent RSB's CSID | 
0446 1009 
446 1010 STATE_NOTZERO: | 
bee ae BUG_CHECK LOCKMGRERR,FATAL;Rebuild state is not 0 or 3 | 
044A 1018 PROCESS_RSB: 
44A 1014 
44A 1015 ; This routine does two functions, depending on the value of 
044A 1016 ; LCKSGB_REBLD_STATE. If it’s 3 then we do a complete rebuild 
044A Wit ; of the RSB. If it’s 0 then we simply try to grant waiting 
t2a 1019 pee | 
03 00000000°GF 91 044A 1020 CMPB -«GLCKS$GB_REBLD_STATE,#3 ; What phase of failover are we in? | 
15 13 0451 1021 BEQL ; Do the complete rebu 
00000000'GF 95 1 § TSTB G“LCK$GB_REBLD_STATE 3; Verify state is 0 
ig 1 BNEQ STATE_NOTZERO ; Error 
38 A D 1024 TSTL RSBSL_CSID(R8) $ oe regrant locks if we are 
01 M3 ! 5 +} 3$ ; mastering this resource 
55 OC A8 ev 1 $ 3$: MOVZBL RSBSB_GGMODE(R8) ,R5 ; Get group grant mode 
00E6 1 ! 8 BRW 90$ 3; Just grant locks 
1030 
} 1 
1038 
1034 
1035 


PREP R RRP RRR RRR RS 
POAAAAAAAOAOUIUIV 


p00 0000 CD Co CoN On DW OW 


etc. 
of the number of locks on the 


; RI is used to maintain a coun 
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Vv PROCESS_RSB = Process a single RSB durin 5-SEP-1984 04:11:2 SYSLOA.SRCJREBLDLOCK .MAR; 1 
rh ] § ; resource. This will be used later, just for an integrity check. 
te 1 8 ASSUME RSBSL_CVTQFL EQ RSBSL_GROFL+8 
rh } ip ASSUME RSBSL_WTQFL EQ RSBSL_CVTQFL+8 
38 ~ BS 0468 1041 TSTW RSBSL_CSID(RB) 3; Make sure CSID is not still -1 
Dd 19 0468 1 rt: BLS3 CS1D_ERROR 3; Error 
50 48 by 0 290 104 MOVL RSBSC_PARENT(R8) ,RO ; Get address of parent RSB 
0 1 4 } 1044 BEQL 8$ 3; No parent 
3 AB D1 0473 1045 CMPL RSBSL_CSID(R8),- 3; Verify this CSID matches parent's 
A £78 1 #6 RSBSL_CSID(RO) ; CSID 
g ie 478 104 BNEQ C510 ERROR ; Error! 
D 47A 1048 8$: CLRL R i Initialize group grant mode 
59 D4 Q47C 1049 CLRL R9 ; Initialize number of locks on resource 
42 ag B4 Q47E 1050 CLRW RSBS$W_BLKASTCNT (R8) : Initialize blocking AST count 
54 0 DO 0481 1051 MOVL R ; Process 3 queues 
57 10 AB ODE 484 105¢ MOVAL RSBSL_GROFL(R8),R7 ; Address of first queue 
Oc8 Vee 10$: 3; Start processing next lock queue 
s% FF «68t O28 1938 MOVL R7,R6 3; Use R6, save queue header in R7 
begs 1328 20$: ; Process next lock in this queue 
2$ 66 00 Rene 1060 MOVL (R6) ,R6 : Get next lock 
ee USealobaloge 
0091 31 0493 1963 BRW 80$ : Yes, move to next queue 
56 38 C2 0496 1064 30S: SUBL #LKBSL_SQFL,R6 ; Point to start of LKB 
59 =6 7h 44 1992 INCL Rg : Incr. count of locks 
ae 198? 3; Do the following code only for the granted queue 
03 ae 4h beoe 136) ays Tt ; hg we doing the granted queue? 
36 A6 «91 «04A0 «1071 CMPB = LKBS$B_STATE(R6),- : Yes, is state = GRANTED? 
08 12 Qeae 1078 pe rconites ; No 
20 Ag d3 O4Ag 107% st KBSL_BLKASTADR(R6) ; Is a blocking AST specified? 
42 AB B6 re 1 6 INCW RSBS$W_BLKASTCNT(R8) : Yes, incr. blocking AST count 
nn ! oe 50$: : Do the following code only for the granted and conversion queues 
01 54 Di Q4AE 1080 CMPL R4 #1 ; Are we doing the waiting queue? 
15 15 0481 1081 BLEQ 60 ; Yes 
51 35 A6 9A 0483 1 ¢ MOVZBL LKBSB_GRMODE(R6) ,R1 : No, get granted mode 
63 00000000'GF45 51 €1 048 18 BBC R1,G°CCKSCOMPAT_TBLCR5).75$ : Verify it's compat tie 
55 51 D1 Q4CO 1084 CMPL R1,R5 ; Is it bigger than the current 
9 18 c3 1085 BLEQU 60$ 3: group grant mode? 
55 1 00 ae } $ VL R1,R5 : Yes, it becomes new gg mode 
C8 1088 60S: ; Do the following code only for the conversion and waiting queues 
: : 3 : and only if this resource is managed on this system 
03 54 Di Q4C8 1 3 CMPL R4 #3 ; Are we doing the granted queue? 
50 18 04CB 1092 BGEG §=_ 708 : Yes 
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38 A8 3 4CD 1093 TSTL BSGSLCSID«RS) ; Are we managing this resource? | 
48 1 rt ! 3¢ BNEQ 70$ 3 No 
402 1 39 ; Queue black ing ASTs if necessary. Don't queue blocking ASTs | 
rt ! 2 ; on behalf of locks in any of the SCS or response states. | 
3 1038 DISPATCH LKBS$B_STATE(R6) , TYPE=B, PREF IX=LKBSK_,- 
4D2 1101 <CONVERT ,65$>,- 
402 11 § <WAITING,65$>,- 
4d02 11 > 
3F 86.11 QO4DC 41104 BRB 70$ : Ignore other states 
A 11 Q46DE 1105 63$: BRB 10$ 
42 A 8 4E0 11 $ 65$: TSTW RSBS$W_BLKASTCNT(R8) 3 Anyone want a blocking AST? 
1 4E3 11 BEQL : No 
OFFO 8F BB 04E5 1108 PUSHR #*M<R4,R5,R6,R7,R8,R9,R10,R11> 
00000000'GF 16 O4E9 1109 JSB GU CKSQUEUE BLOCKAST -"Queue blocking ASTs 
OFFO 8F BA pees 1119 POPR #°M<R4,R5,RE, .R8,R9,R10,R11> 
O4F W116 68$: : Insert waiting locks on the timeout queue (if not already on it). 
O4F3 111 ; We've already determined that the lock is mastered on this system 
7H Vi3 3; and it is in either CONVERT or WAITING state. 
EO O4F 1118 BBS #LCKSV_NODLCKWT,- ; Don't insert if no deadlock wait 
25 28 A6é te 111 LKBSW_FLAGS(R6) , 70S 3; is specified 
50 00000000'GF 09 4-8 1118 MOVL GALCKSGL_WAITTIRE .RO : Get lock wait time 
1¢ 8613 «(O4FF 61119 BEQL 0$ ; Deadlock checking is disabled 
06 E2 0501 1120 BBSS #LKBSV_TIMOUTQ,- ; Branch if already on the queue; 
17 2A A6 0503 1121 LKBSW_ STATUS(R6),70$  ; set bit otherwise | 
00000000'GF 50 1 0506 11 : ADDL3 RO,G*EXESGL_ABSTIM,-  ; Add wait time to current time to | 
18 A6 0500 11 LKBSL_DUETIME (RO) ; get duetime 
4E AG 94 QSOF 1124 CLRB LKB$B_TSLT(R 3; Init. timestamp Lifetime 
50 00000000'GF DE B31¢ 1125 MOVAL G“LCKSGL_TIMOUTQ,RO 
66 OF 0519 1126 INSQUE LKBSL_ASTQFL(R6),- : Insert lock on end of timeout queue 
04 B80 Bere i i a4(ROY | 
56 638 @=6C0 Oa1p 1193 70$: ADOL #LKBSL_SQFL,R6 ; Point to queue Links 
FF68 31 b2 1 , BRW 208 ; Go to next LKB in this queue 
05 1132 75$: BUG_CHECK LOCKMGRERR, FATAL; Incompatible granted locks 
05 11 3; or resource has no locks 
0527 1134 3 and is not a directory entry 
b2 4 1 5 80$: 3; Proceed to next queue | 
57 08 co 03 7 11 $ ADDL #8,R7 ; R7 points to next queue header 
B1 54 «OF ; 1% 3 SOBGTR R4,63$ ; Repeat for all three queues 
52D 1140 ; Store om computed group grant made vegerdisee of 
52D 1141 3; who is mastering resource. Also ver fy that there are 
52D 1148 3; some locks on this resource. The only tolerable case of no 
; 1107 : locks is if this is a directory entry resource. 
; 4 1302 ASSUME RSBSV_DIRENTRY EQ 0 
OC A8 a 52D 1149 MOVB a -RSBSe Semone ih ) ; Store group grant mode 
OD A& » OS 531 1333 MOVB R5,RSBSB_CGMODE (R8) ; Store conversion grant mode 
9 OD 535 114 TSTL Rg : Are there any locks? 


K 6 
REBLDLOCK k Fai 16-SEP-1984 38:4 'AX/VM Re 4 
eee sh°* Database on Failove SE iy 00: 38:58 S$ Macro v04-00 Page 


- Process a single RSB “durin “SEP-1984 SYSLOA.S REIR EBLDLOCK.MAR; 1 


04 vn BNEQ 85$ ; Yes 
E6 OF AB CE BLBC RSBSW_STATUS(R8) ,75$ ; Error if not a directory entry 
85$: ; Do the following code only if we are managing this resource 
38 AB ODS TSTL RSBSL_CSID(R8) ; Is resource managed locally? 
3012 BNEG §= 1008" : No : . 
: Invalidate value block if group grant mode is not greater 
3; than CR mode. 
01 55 91 CMPB 8 #LCKSK_CRMODE ; Is group grant mode greater than CR? 
07 ~+1A BGTRU 908 3; Y 
+f A8 BISwW #RSBSM_VALINVLD,- 3; No, set value block invalid bit 
OE A RSBSW_STATUS (RBS 
C AB «Ob INCL RSBSL_VALSEQNUM(R8) 3; Incr. value block seq. number 


90$: ; Try granting locks. Note that we y Ay. neve oe 
n 


$ nap neg fl ns - e LCKS$GB_STA/.LREQS 
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: to get RANTCVTS to grarc Locks. 17't CKSGB _REBLD_STATE is 
3; set to 3 we temporarily s*¢ LCK$GB_ STALLREGS to +1. Note that we 
3 cannot suspend d this < n? ead of execution at IPLS_ SYNCH while 
; LCKSGB_STALLREQS is changed. 
57 a's a's 4H 98 CVTBL G*“LCKSGB_STALLREQS,R7 =; Fetch stall flag and save it 
03 00000000'GF 9 CHPB GeLCKSGB_ REBLD_STATE,#3 : Is rebuild state = 3? 
3 No 
00000000'GF 01 90 MOVB #1,G*LCKS$GB_STALLREQS ; Yes, store temp. stall flag 
00000000'GF 16 95$: JSB G“*LCKSGRANTCVTS : Try granting locks 
00000000'GF 57 + 1008 ty R7,G*LCK$GB_STALLREQS =; Restore old value of stall flag 
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; "FUNCTIONAL DESCRIPTION: 

eee dite gen ay hig nyt preqsqess wares for locks. 

he global cell LCKSGB_STA Seed rsstent tater pesooee 

proceed and which go back into MWAIT. 

; ; CALLING SEQUENCE: 
JSB LCKSRESUME_UNPROT - — processes waiting for unprotected 
JSB LCKSRESUME_ALL = Resume processes waiting for protected 
JSB LCKSSTALL_ALL = Stall all lock requests 
IPL must be at IPLS$_SYNCH 

INPUT PARAMATERS: 
None 

; OUTPUT PARAMETERS: 
None 

IMPLICIT OUTPUTS: 

LCKS$GB_STALLREQS = Set to 1 by Leaner _UNPROT 


Set to 0 ¥ LCKSRESUME_ALL 
set to -1 by COKSSTALE ALL 
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: ; SIDE EFFECTS: 
RO - RS destroyed 


Less ALL:: 
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50 04 
03. =i BRB RESUME_COM 
LCKSRESUME_UNPROT:: 
50 01 DO MOUL #1,R0 


RESUME _COM: 
MOVB 


00000000'GF 50 90 RO,G*LCK$GB_STALLREQS ; Store new value for stall indicator 


50 OE MOVL #RSNS_CLUSTRAN,RO ; Set resource number 
00000000 ' GF ie g28 gn SCHSRAVAIL 3; Make it available 


LCKSSTALL_ALL:: 
wae 68 #1,G*LCKSGB_STALLREQS =; Store -1 for stall indicator 
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> FUNCTIONAL DESCRIPTION: 
These routines set the rebuild state to a specified value. 
The purpose of the rebuild state is to guarantee that all 
nodes process each ates in the failover table in unison 
without any nodes getting ahead of other nodes. The rebuild 
stete variable is used by the lock manager's input message 
dispetcher in routine DSTRLOCK. 

CALLING SEQUENCE: 
JSB UCKSSET_STATEn 

INPUT PARAMETERS: 
LCK$GB_REBLD_STATE (The old value is verified) 

OUTPUT PARAMETERS: 
LCKS$GB_REBLD_STATE (The new value is set) 

SIDE EFFECTS: 


RO and R1 not preserved 
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LCKSSET_STATE1:: 
MOVB 
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3 
00000000'GF 01 90 3 A #1,G*LCKS$GB_REBLD_STATE ; Old value can be anything 
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LCKSSET_STATE2:: 
MOVB 1,R0 

BRB SET_STATE 

LCKSSET_STATES:: 
MOVB 


50.01 
03 11 
50 02 90 #2,R0 


SET_STATE: 
MOVA 
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51 Q0000000'°GF 9 KSGB_REBLD_STATE,R1 ; Get address of state variable 
50 1 91 RO 3; Verify old value 
> AD 
61 be AF ; Set new state 
0° beep 1388 
359 § 10$: BUG_ CHECK LOCKMGRERR, FATAL 
Be 8 LCKSSET_STATEO:: 
50 03 %9 58 MOVB #3,R0 
eB B 0 BSBB ss SEf_ STATE 
61 9% BB 1 CLRB (R1) 
05 BD § RSB 
BE 
5BE 4 
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REBLDLOCK - Rebuild Lock Database on Failover 16-SEP-1984 00:38: AX/VMS M v04-00 Pp 9 SCSLO 
Symbol table ; Boece ae Basti ies Fee YDS Bac te ylR OO mart om (9%) v04-0 


SSBAS = FRFFFFFF ate CRMODE = 9808000) 
SSDISPL = 1 LCKSMARK_FOR_RESEND BC R 
SSGENSW = 1 LCKSQUEUVE_BLOCKAST etereree 
$SHIGH = 0 LCKSREBLD LOCK EE RG 
SSLIMIT = 01 LER SREBUICD _LEBS FD RG 
$$LOW = FREFFFFE LCKSREBU Lb RSBS F7 RG 
SSMNSW = S44 4 a LCKSRESUME_ALL 73 RG ; 
SSMXSW = 1 LCKSRESUME UNPROT 577 RG 
BUGS$_LOCKMGRERR eeeekeee § 93 LCKSSET_STATEO 286 RG 3 
BUGS RESE aeeeeree = X 0 LCKSSET_STATE1 0593 RG 3 
CA$S_MEASURE = 00002 LCR SSET STATES Hy, RG 
CORPS$L_MSGBLD = 38 4C Lek Sse! STATE 5A0 RG 
CORPSL_VAL1 = ‘ LCK$SSTACL_ALL 588 RG 
CORPS$L_VAL = 00000 LCK$V_CONVERT s ° 1 
CORPS$L_VAL = 44 4 LCK$V_NODLCKWT = 000 9 
CORPSL_VAL = 00000048 LKB$B_GRMODE = 00000035 
CHECK_FAILOVER. 00002BD R 03 LKBSB_STATE = 4444 6 
CHECK FAILOVERZ 00002C1 R Hy LKB$B_TSLT = 004E 
CLUSGC_CLUB eerkenee =X 3 LKBSB_TYPE = QQ000000A 
CLUBSB_CLUF CB = 0000010C LKBSK_CONVERT = 00000000 
CLUBSW MEMSEQ = QO00000AC LKBSK_GRANTED = 00000001 
CNXSALCOC_WARMCDRP eeeeeere =X 03 LKBSK_RETRY = FFFFFFFE 
CNXSCHECK-FAILOVER tereeeee = X 03 LKB$K_RSPDOLOCL = FRFFFFF9 
CNXSDEALL-WARMCDRP_CSB tereeeee =X 03 LKBSK_RSPGRANTD = FFFFFFFA 
CNXSEND_FAILOVER eeeeeeee = X 03 LKBSK_RSPNOTQED = FFFFFFFC 
CNXSRESOURCE_CHECK teeeeeee = X 03 LKB$K_RSPQUEUED = FFFFFFFB 
CNXSSEND _MSG_CSB tereeeee = X 03 LKBSK_RSPRESEND = FFFFFFFS 
CSB$L_CLOB = 00000064 LKBSK_SCSWAIT = FFEFFFFFD 
CSBSL-CSID = 0000004¢ LKBSK_WAITING = FREFFFFF 
CSID_ERROR 00000442 R 03 LKBSL_ASTQF = BON 8008 
CURR_LOCKID 00000000 R 02 LKBSL_BLKASTADR = 0000002 
DYNSC_RSB = 00000036 LKBSL_DUETI = 44 4b 
EXESDEANONPAGED tereeeee =X 03 LKBSL_PARENT = Bo08 04 
EXESFORK eereeeee§ KX 03 LKBSL_PID = 0000000C 
EXESFORK_WAIT eeneeeeer = X 03 LKBSL_REMLKID = 64 Fs 
EXESGL_ABSTIM eeeeeeee = =X 03 LKBSL_RSB = BO NRss 
FKBSB_FIPL = 000000 LKBS$L_SQFL = 4 03 
IPL$_SCS = 444 44 LKBSM_ASYNC = 00000004 
IPL$_SYNCH = 000000 LKBSM_RESEND = B88 rt 
LCKSBLD_REBLDLOCK eeeneeee xX 3 LKBSM_TIMOUTQ = 0000004 
LCKSCHECK_DIRENTRY 00000369 RG 3 LKBSV_MSTCPY = 0000 oe 
AT_TB teeeeere =X ; LKBSV_RESEND = O808 OA 
eeteeeee = §6X LKBSV_TIMOUTQ = 000000 § 
eeeeeeee = §= LKBSW_FLAGS = 8 
eereeeee =X LKBSW-REFCNT = f 
tereeeee =X LKBSW_RQSEQNM s 01 
tereeeee xX LKBSW"STATUS = 0000002A 
eeeeeeee =X LKMSGSB_LCKSTATE = 000 $ 6A 
eeeeerer =X LKMSGS$B_LSTATUS = of 
eeeeeeee =X LKMSGSB_RSTATUS = 6 
teeeeeee =X LKMSGSB STATE = 1 
eteeeree LKMSGS$L_CSID = 1 
00000008 RG LKMSGSL_ASTLKID = 1 
teeters =X LKMSG$L_VALSEQALT = 4 
tereeeee =X LKMSG$Q"VALBLKALT = 4 
eeereree xX LKMSG$W_MEMSEQ = f 
00000000 RG LKMSG$W_RQSEQALT = 000 
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Attributes 

0¢( 0.) NOPIC USR CON 
1¢ 1.) NOPIC USR CON 
§ ( ¢°} NOPIC USR CON 
( -) NOPIC CON 
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XE RD WRT NOVEC B 
XE RD WRT NOVEC L 
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REBLDLOCK = Rebuild Lock Database on Failover 197-360-1388 00: 38:68 AX/VMS Mac 
VAX-11 Macro Run Statistics -SEP-1984 04:11:2 


! Performance indicators ! 


tee enw mn ene Sone neem none + 


Phase Page faults CPU Time Elapsed Time 
Initialization :00.03 0:00:01.94 
Command processing 13 004 t 0:00:3 
Pass 1 421 11.6 :00:40. 
Symbol table sort 9 701.4 :00: Q 
ass 24 :02.9 :00:08.54 
Symbol table output 19 :00.11 :00:00.11 
Psect synopsis output § : 8 0:00:00. 3 
Cross-reference output : 8: 8: :00. 
Assembler run totals 831 0:00:16.6 :01:00.31 


The yorkine set Limit was 1800 pages. 

96405 bytes (189 pages) of virtual memory were used to buffer the intermediate code. 

There were 80 pages of symbol table space allocated to hold 1373 non-local and 70 local symbols. 
8 source Lines were read in Pass 1, producing 22 object records in Pass 2. 

32 pages of virtual memory were used to define 50 macros. 
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; Macro Library statistics ! 


ee 


Macro Library name Macros defined 
~$255$DUA28: CSYSLOA.OBJJCLUSTER.MLB; 1 1 
_8255$DUA28: (SYS.OBJJLIB.MLB; 1 17 
$255$DUA28: CSYSLIBJSTARLET.MLB;2 6 
TOTALS (all Libraries) 24 


1477 GETS were required to define 24 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:REBLDLOCK/OBJ=OBJ$:REBLDLOCK MSRC$:REBLDLOCK/UPDATE=(ENH$:REBLDLOCK) +EXECML$/LIB+LIB$:CLUSTER/LIB 


ro V04-00 
SYSLOA.SRCJREBLDLOCK.MAR;1 


Peer ity 


oust 


399 fH-8713A- SE DIGI EQUIPMENT CORPORATION 
| VAX/VMS V4.0 CONF IDENT 


IAL AND PROPRIETARY 


035 AH-BT13A-SE T CORPORATION 
VAX/VMS V4.0 PROPRIETARY 


